COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "alsoap"
C00004 ENDMK
C⊗;
BEGIN "alsoap"
INTEGER CHN,BRK;
STRING COMMAND,FILE_NAME,PPN;
REQUIRE "ABBREV.SAI[AL,HE]" SOURCE_FILE;

OUTSTR("ALSOAP" & crlf);

COMMAND ← TMPIN("ALC",BRK);
WHILE COMMAND ≠ "." ∧ COMMAND ≠ "[" ∧ COMMAND ≠ "," ∧ COMMAND ≠ "←" DO
    FILE_NAME ← FILE_NAME & LOP(COMMAND);
WHILE COMMAND ≠ "[" ∧ COMMAND ≠ "," ∧ COMMAND ≠ "←" DO BRK ← LOP(COMMAND);
IF COMMAND = "[" THEN 
    BEGIN DO PPN ← PPN & LOP(COMMAND) UNTIL COMMAND = "]"; PPN ← PPN & "]" END;
DO BRK ← LOP(COMMAND) UNTIL COMMAND = "(" ∨ COMMAND = 0;
IF COMMAND = "(" THEN 
    WHILE COMMAND DO IF COMMAND = "K" THEN CALL(0,"EXIT") ELSE BRK ← LOP(COMMAND);

CHN←GETCHAN;
OPEN(CHN,"DSK",0,0,0,512,BRK,BRK);

LOOKUP(CHN,FILE_NAME & ".ALP" & PPN,BRK);
RENAME(CHN,NULL,0,BRK);

LOOKUP(CHN,FILE_NAME & ".ALT" & PPN,BRK);
RENAME(CHN,NULL,0,BRK);

LOOKUP(CHN,FILE_NAME & ".ALV" & PPN,BRK);
RENAME(CHN,NULL,0,BRK);

RELEASE(CHN);
CALL(0,"EXIT")
END "alsoap"